{ ETP Link short sljantal 170222 }

i1(
cell=scrpar(32)
include=scrpar(30)
auto_select=gt(getgvar(add(cell,1000)),0)
best_match=getgvar(add(cell,5000))
keep_paper=or(and(eqv(best_match,crcid()),and(include,auto_select)),not(auto_select))

replikera=eqv(scrpar(21),0)
mlantal=if(keep_paper,if(lt(getgvar(cell),0),abs(getgvar(cell)),0),0)
innehav=portfolio(v)
underml=le(innehav,mlantal)
slutantal1=if(underml,0,sub(innehav,if(replikera,mlantal,0)))
add(0,slutantal1)
)